home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_20_1987_Transactor_Publishing.d64 / bytes free (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  356b  |  12 lines
  1. 0 rem the transactor volume 8 issue 03        page 9
  2. 1 rem* bytes free program *
  3. 2 rem* by george borsuk   *
  4. 10 for i=49152 to 49172
  5. 20 read a: poke i,a: ch=ch+a
  6. 30 next i
  7. 40 if ch<>2624 then print"data error!": stop
  8. 50 print"** sys 49152 will give bytes free"
  9. 60 data 165,  55, 56, 229, 45, 170, 165
  10. 70 data  56, 229, 46, 32, 205, 189, 169
  11. 80 data  96, 160, 228, 32, 30, 171, 96
  12.